Informace ve StatusBaru

Otázka od: LUKES Vaclav

6. 11. 2003 14:14

Ahoj,

muzete me prosim poradit ?
Na formulari mam TStatusBar SBA, ve kterem chci zobrazovat info o klavesach:

procedure TfrmCenHlv.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with SBA do
  begin
    if Odd(GetKeyState(VK_NUMLOCK)) then
      Panels[0].Text := 'NUM'
    else
      Panels[0].Text := '';

    if Odd(GetKeyState(VK_CAPITAL)) then
      Panels[1].Text := 'CAPS'
    else
      Panels[1].Text := '';
  end;
end;

Vse funguje az do chvile, kdy pouziju JEDI. Potom mi to najednou prestane
fungovat.

Nevite nekdo co s tim ?

Diky

V.







----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)

Odpovedá: kexo

6. 11. 2003 15:50

JEDI ma zadefinovanu funkciu
function GetKeyState(const VirtualKey: Cardinal): Boolean;

takze skus stade vyhodit to 'Odd'
kexo

----- Original Message -----
From: "LUKES Vaclav" <lukes@ans.cz>
To: <delphi-l@clexpert.cz>
Sent: Thursday, November 06, 2003 1:36 PM
Subject: Informace ve StatusBaru


> Ahoj,
>
> muzete me prosim poradit ?
> Na formulari mam TStatusBar SBA, ve kterem chci zobrazovat info o
klavesach:
>
> procedure TfrmCenHlv.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> with SBA do
> begin
> if Odd(GetKeyState(VK_NUMLOCK)) then
> Panels[0].Text := 'NUM'
> else
> Panels[0].Text := '';
>
> if Odd(GetKeyState(VK_CAPITAL)) then
> Panels[1].Text := 'CAPS'
> else
> Panels[1].Text := '';
> end;
> end;
>
> Vse funguje az do chvile, kdy pouziju JEDI. Potom mi to najednou prestane
fungovat.
>
> Nevite nekdo co s tim ?
>
> Diky
>
> V.
>
>
>
>





----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)